home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / C / GCC / V2-4-5 / GCCEXTSR / Virtual / !Virtual / c / output < prev    next >
Text File  |  1993-09-06  |  779b  |  46 lines
  1. /*
  2.  * output.c
  3.  * Part of the !Virtual distribution
  4.  * (c) bdb/nas/fo, 1992-3
  5.  */
  6.  
  7. #include "swis.h"
  8. #include "swiv.h"
  9. #include "wimp.h"
  10.  
  11. #include "virtual.h"
  12. #include "lib.h"
  13. #include "output.h"
  14. #include "asm.h"
  15. #include "pager.h"
  16.  
  17. void printflush(WKSP *w)
  18. { int *block=w->outblock;
  19.   if (!w->outcount)
  20.     return;
  21.   block[5]=w->outcount;
  22.   block[0]=(w->outcount|3)+25;
  23.   block[3]=0;
  24.   block[4]=0x808c1; /* 0x804c0; */
  25.   swi(Wimp_SendMessage, IN(R0|R1|R2), 17, block, w->outtask );
  26.   w->outcount=0;
  27. }
  28.  
  29. void printc( WKSP *w, int c )
  30. { 
  31.   w->outbuf[w->outcount++]=c;
  32.   if (w->outcount>=OUTMAX-2)
  33.     printflush(w);
  34. }
  35.  
  36. void outc(WKSP *w, int c )
  37. {
  38.   w->outbuf[w->outcount++]=c;
  39.   if (w->outcount>=OUTMAX-2)
  40.   { Normal(w);
  41.     printflush(w);
  42.     FindPages(w);
  43.     Virtual(w);
  44.   }
  45. }
  46.